home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / services / EditUserAccess.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  3.5 KB  |  132 lines
  1. <html>
  2. <head>
  3.  
  4.  
  5. <script language="JavaScript">
  6. <!-- 
  7.  
  8. if (document.images) {
  9.  
  10.   // Preload rollover images
  11.   nav2a = new Image(78,18);
  12.   nav2a.src = "/images/addIP_b.jpg";
  13.   nav4a = new Image(78,18);
  14.   nav4a.src = "/images/addIP_b.jpg";
  15.  
  16.   // Preload rolloff images
  17.   nav2 = new Image(78,18);
  18.   nav2.src = "/images/addIP_g.jpg";
  19.   nav4 = new Image(78,18);
  20.   nav4.src = "/images/addIP_g.jpg";
  21.  
  22.  
  23. }
  24.  
  25. // function for rollover
  26. function msover(imgName) {
  27.   if (document.images[imgName]) {
  28.     document.images[imgName].src = eval(imgName + "a.src");
  29.   }
  30. }
  31.  
  32. // function for rollout
  33. function msout(imgName) {
  34.   if (document.images[imgName]) {
  35.     document.images [imgName].src = eval(imgName + ".src");
  36.   }
  37. }
  38.  
  39. // -->
  40. </script>
  41.  
  42.  
  43.  
  44. <%
  45.     UserName = Request.ReqParam("name")
  46.     if UserName = "" then
  47.         UserName = Request.ReqParam("UName")
  48.     End If
  49.     command = Request.ReqParam("action")
  50.     if command = "Allow" Then 
  51.         Accounts.UserAccessType(UserName) = False
  52.         Path = "/Services/EditUserAccess.agp?name="+UserName
  53.         Response.Redirect(Path)
  54.     end if
  55.  
  56.     if command = "Deny" Then 
  57.         Accounts.UserAccessType(UserName) = True
  58.         Path = "/Services/EditUserAccess.agp?name="+UserName
  59.         Response.Redirect(Path)
  60.     end if
  61. %>
  62. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
  63. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  64. <title>Empty</title>
  65. </head>
  66.  
  67. <body bgcolor="#FFFFFF" text="#000000">
  68. <table border="0" cellpadding="0" cellspacing="1" width="100%">
  69.   <tr valign=top>
  70.     <td width="100%" valign=top align=right>
  71.     <a href="EditUserFilter.agp?name=<%Response.Write(UserName)%>&NewFilter=1" onMouseOver="msover('nav2')" onMouseOut="msout('nav2')"><img
  72.     src="/images/addIP_g.jpg" width="220" height="24" alt="Add new IP filter" name=nav2 border=0></a>
  73.     </td>  
  74.     </tr>
  75. </table>
  76.  
  77.  
  78. <p><big><strong><font face="Arial">
  79.         Restrictions for user <%Response.Write(UserName)%>
  80. </font></strong></big></p>
  81.    <div>
  82.     <table border="1" cellpadding="0" cellspacing="0" width="100%">
  83.    <tr>
  84.         <%
  85.             if Accounts.UserAccessType(UserName) then
  86.                 msg = "DENY access from all IP addresses, except these"
  87.             else
  88.                 msg = "ALLOW access from all IP addresses, except these"
  89.             end if
  90.         %>
  91.  
  92.         <td width="80%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  93.             <%Response.Write(msg)%>
  94.         </font></strong></td>
  95.         <td align="center" width="20%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  96.             Action
  97.         </font></strong></td>
  98.    </tr>
  99.     <%Response.Write(Accounts.UserFilterList(UserName))%>
  100.    </table></div>
  101. <br>
  102. <table border="0" cellpadding="0" cellspacing="1" width="100%">
  103.   <tr valign=top>
  104.     <td width="100%" valign=top align=left>
  105.     <a href="EditUserFilter.agp?name=<%Response.Write(UserName)%>&NewFilter=1" onMouseOver="msover('nav4')" onMouseOut="msout('nav4')"><img
  106.     src="/images/addIP_g.jpg" width="220" height="24" alt="Add new IP filter" name=nav4 border=0></a>
  107.     </td>  
  108.     </tr>
  109. </table>
  110. <br>
  111. <form method="POST" action= "EditUserAccess.agp">
  112.     <font face="Arial">
  113.         <input type="hidden" name="UName" value="<%Response.Write(UserName)%>">
  114.     Press this button in order to 
  115.     <%
  116.         if Accounts.UserAccessType(UserName) then
  117.     %>
  118.             <input type="submit" name="action" value="Allow">
  119.     <%
  120.         else
  121.     %>
  122.             <input type="submit" name="action" value="Deny">
  123.     <%
  124.         end if
  125.     %>
  126.     access from all IP adresses except those listed above.</font>
  127. </form>
  128.  
  129. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  130. </body>
  131. </html>
  132.